home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / BUSINESS / MRBILL2.LZH / BILLDATE.TBC (.txt) < prev    next >
Turbo Basic Chain module  |  1988-03-30  |  29KB  |  29 lines
  1. 3,4!<,4!E,4!N,4!P,(#V,2#],2#f,2#o,2#x,2#{,
  2. .$'".$'1.$'E.$'T.$'l.$'v.$'|.$'
  3. /8'!/L',/L'8/P'M/V'X/V'[/`'g/`'
  4. 0~'!0
  5. (I2((T2((
  6. 2<(43F(:3F(=3P(
  7. 4x(44x(_4
  8. 6,)27,)=76)C76)F7@)[7J)f7J)
  9. 8O)v8O)|8P)
  10. 8Q):9Q)@9R)
  11. :U)o:U)u:V)
  12. :^)C;^)I;_)
  13. <{)+<
  14. A    *%B    *+B
  15. C!*$C"*HC"*lC"*
  16. F\+(F\+3F\+?Fa+KFa+SFf+XFf+gFf+{Ff+
  17. +|J$,
  18. J.,!K8,3K8,6K8,EYY$:REGXY$=REGTB$:AGE%=CVI(AGE$):GOSUB 6650:CATXX%=CVI(CATX$):PUT #7,KEYREC%:PRINT "_":CLS:PRINT,NAMEX$,"REBILLED":FLAGA$="NF":RETURN
  19. 4300 IF EOF(1) THEN EOFE$="D":RETURN
  20. 4305 EOFE$="0":RETURN
  21. 4310 DATEX$=" ":LADD%=0:LEDG%=0:PYB#=0:AGE%=0:UNT#=0:CATUNIT#=0:CATDOL#=0:DOL#=0:DESC%=0:ADD%=0:GOSUB 3500:RETURN
  22. 4320 GOSUB 4310:CLOSE #1:OPEN "I",#1,Y2$+":NEWSORT":NAMXX$=NAMEX$:FLAGA$="NF":GOTO 4050
  23. 4400 PRINTER%=PRINTER%+1:GOSUB 3340
  24. 4410 IF PAGEBREAK%=1 OR PRINTER%<=
  25. THEN IF JUSTLI
  26. D$(I0$,4,2)
  27. Sorting Sort Section 3 Completed -- Writing Pointer File*Sort Section 2 CompletedSort Section 1 -- Sorting *2:NEWSORT*** DATA FILE EMPTY ***Quick In Memory Sort -- Reading FileReading File From Disk Into MemoryThis Is A Big File - Sorting It Will Take Several PassesThis File Is Too Big To Sort. 16,000 Activities Max    --- PRESS RETURN NOW ---    ADD MORE MEMORY TO YOUR COMPUTER.    REMOVE SOME MEMORY RESIDENT PROGRAMS, OR    AVAILABLE MEMORY.  DELETE SOME ACTIVITIES, OR*** YOUR FILE IS TOO BIG TO SORT IN THE ******  THERE ARE NO FILES OF THIS TYPE ON THAT DISK ******  BILLING ENTRIES NOT SORTED!  YOU MUST SORT THEM! ***: NOT READY/AVAILABLE*** DRIVE *** TOO LONG ***YOU MUST RE-SORT YOUR ENTRIESDRIVE LETTER CORRECT? IF SO, THEN  *** YOUR INDEX FILE, 'NEWSORT' NOT FOUND ON _*** DATE WRONG,  MUST BE MM-DD-YY ****** DATE WRONG -- NO SPACES IN DATE ***XXXXXXXX*** NOT ACCEPTABLE ****** NO PERIODS ***    $$#####,.##  TOTAL CHARGES:                        $$#####,.##  ($$#####,.##)  TOTAL CREDITS:                        $$#####,.##: $$#####,.##  TOTAL    #            ($$#######,.##) $$#######,.#########,.##  \                              \   ######.##    O     OVERWRITE This Old ReportRETURN  To Abandon Your New ReportBILLMMXRETURN To PROCEEDX  EXIT To The Operating SystemM  MAIN MenuProgram To Create A File Of Entries In Date OrderENDING DATE For This Report?STARTING DATE For This Report?*** YOUR DATES NOT FOUND ***:FILEDATE *** AT LINE No.: *** ERROR No. :*.TBL: ARE: NOT FOUND.  FILES ON :  *** FILE *** File DISKDRVE Not Found.  Put DISKDRVE On This Disk.TOT.TBLBilling Code File Name?BILLDATE--- REPORT PREPARED ---BLANK DATE   BLANK      99|99|99D To      Date Report For The Period Of   --- SORT DONE, NOW PREPARING YOUR DATE REPORT ---.DSCRNEWSORT.DTE  EXISTS ! ****** WARNING -- .DTEI Will Save Your Date Report As File NO           WARNING,  If Your Last Sort Was To Prepare Bills, You MUST Re-sortNO      To Skip The Sort This TimeRETURN  To Re-Sort Your EntriesDrive On Which To Save Your Report?*.BIL Are:  Your Files On *** FILE NOT FOUND ON THAT DRIVE ***.BIL:O:TESTXXXX*** NEED LETTER 'A' THROUGH 'L' ***Disk Drive Where You Saved These Entries?.     0Entries To Use For Date Report?Name Of The File Where You Saved TheDISKDRVEICopyright David M. Alexander, 1986,1987 
  28.  THEN I0$=R
  29.